home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vbxs / cubevb / zabout.frm < prev   
Text File  |  1996-04-08  |  4KB  |  128 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About"
  6.    ClientHeight    =   3990
  7.    ClientLeft      =   3045
  8.    ClientTop       =   2520
  9.    ClientWidth     =   5310
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00C0C0C0&
  12.    Height          =   4395
  13.    Left            =   2985
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3990
  18.    ScaleWidth      =   5310
  19.    Top             =   2175
  20.    Width           =   5430
  21.    Begin CommandButton Command1 
  22.       Caption         =   "OK"
  23.       Default         =   -1  'True
  24.       Height          =   375
  25.       Left            =   4080
  26.       TabIndex        =   1
  27.       Top             =   195
  28.       Width           =   1095
  29.    End
  30.    Begin Label Label1 
  31.       Alignment       =   2  'Center
  32.       BackStyle       =   0  'Transparent
  33.       Caption         =   "The lighting and surface removal routines are reworked code from Visualization and Virtual Reality, Lee Adams (WindCrest). By using Visual Basic's Choose statement, this program uses only two small procedure calls to create all effects. The original source code has been heavily edited so you should buy Adams book if you want to under stand the variable naming or basic principle of surface removal and lighting effects in 3D space."
  34.       FontBold        =   0   'False
  35.       FontItalic      =   0   'False
  36.       FontName        =   "MS Sans Serif"
  37.       FontSize        =   8.25
  38.       FontStrikethru  =   0   'False
  39.       FontUnderline   =   0   'False
  40.       Height          =   1575
  41.       Index           =   2
  42.       Left            =   120
  43.       TabIndex        =   4
  44.       Top             =   2280
  45.       Width           =   5055
  46.    End
  47.    Begin Line Line1 
  48.       BorderColor     =   &H00FFFFFF&
  49.       Index           =   4
  50.       X1              =   135
  51.       X2              =   5175
  52.       Y1              =   780
  53.       Y2              =   780
  54.    End
  55.    Begin Line Line1 
  56.       BorderColor     =   &H00808080&
  57.       Index           =   0
  58.       X1              =   135
  59.       X2              =   5175
  60.       Y1              =   765
  61.       Y2              =   765
  62.    End
  63.    Begin Label Label1 
  64.       Alignment       =   2  'Center
  65.       BackStyle       =   0  'Transparent
  66.       Caption         =   "Robert W. Stewart is an independent computer consultant and graphics artist. He is the author of  Graphics Programming with Visual Basic, from Sams publishing 1-800-428-5331. My M$N address maybe Stewd_2 or Stewd_3 depending on how many times I've quit then rejoined M$N  <g> You could also check CI$ (some story)."
  67.       FontBold        =   0   'False
  68.       FontItalic      =   0   'False
  69.       FontName        =   "MS Sans Serif"
  70.       FontSize        =   8.25
  71.       FontStrikethru  =   0   'False
  72.       FontUnderline   =   0   'False
  73.       Height          =   1290
  74.       Index           =   0
  75.       Left            =   135
  76.       TabIndex        =   3
  77.       Top             =   885
  78.       Width           =   5055
  79.    End
  80.    Begin Label Label3 
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "Copyright ⌐ 1995 Robert W. Stewart."
  83.       FontBold        =   0   'False
  84.       FontItalic      =   0   'False
  85.       FontName        =   "MS Sans Serif"
  86.       FontSize        =   8.25
  87.       FontStrikethru  =   0   'False
  88.       FontUnderline   =   0   'False
  89.       Height          =   255
  90.       Index           =   0
  91.       Left            =   120
  92.       TabIndex        =   2
  93.       Top             =   450
  94.       Width           =   3855
  95.    End
  96.    Begin Label Label1 
  97.       BackStyle       =   0  'Transparent
  98.       Caption         =   "VB Cube Demo"
  99.       FontBold        =   -1  'True
  100.       FontItalic      =   -1  'True
  101.       FontName        =   "MS Sans Serif"
  102.       FontSize        =   13.5
  103.       FontStrikethru  =   0   'False
  104.       FontUnderline   =   0   'False
  105.       ForeColor       =   &H00FF0000&
  106.       Height          =   375
  107.       Index           =   1
  108.       Left            =   105
  109.       TabIndex        =   0
  110.       Top             =   45
  111.       Width           =   3135
  112.    End
  113. End
  114.  
  115. Sub Command1_Click ()
  116.  
  117.   Unload Me
  118.  
  119. End Sub
  120.  
  121. Sub Form_Load ()
  122.   
  123.   ' center the form on the screen
  124.   Me.Move screen.Width \ 2 - Me.Width \ 2, screen.Height \ 2 - Me.Height \ 2
  125.  
  126. End Sub
  127.  
  128.